home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 November / Ahoy_Magazine_87-11_1987_Double_L.d64 / RAMCO 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  43 lines
  1. 10 rem *** ramco 64 *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=49152
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<372then40
  10. 100 print"the data is ok...":print
  11. 110 print"sys 49152 to activate...":end
  12. 120 data169,19,160,193,32,30,171,169,0,162,2,160,1267
  13. 130 data255,141,115,193,141,118,193,142,116,193,140,117,1864
  14. 140 data193,76,134,192,32,221,192,169,11,160,193,32,1605
  15. 150 data30,171,32,242,192,173,118,193,32,210,255,32,1680
  16. 160 data3,193,32,213,192,32,221,192,169,15,160,193,1615
  17. 170 data32,30,171,32,242,192,32,3,193,162,15,32,1136
  18. 180 data198,255,32,207,255,205,118,193,240,15,169,103,1990
  19. 190 data160,193,32,30,171,169,0,141,115,193,76,134,1414
  20. 200 data192,72,32,213,192,104,141,99,4,173,134,2,1358
  21. 210 data141,99,216,173,118,193,24,105,16,141,118,193,1537
  22. 220 data208,65,238,115,193,208,60,169,94,160,193,32,1735
  23. 230 data30,171,238,116,193,238,117,193,173,117,193,201,1980
  24. 240 data5,144,8,169,32,141,99,4,76,213,192,169,1252
  25. 250 data65,160,193,32,30,171,169,0,174,117,193,32,1336
  26. 260 data205,189,169,81,160,193,32,30,171,166,214,164,1774
  27. 270 data211,142,119,193,140,120,193,174,119,193,172,120,1896
  28. 280 data193,24,32,240,255,169,0,174,115,193,32,205,1632
  29. 290 data189,32,225,255,240,3,76,28,192,169,15,32,1456
  30. 300 data195,255,76,204,255,169,15,168,162,8,32,186,1725
  31. 310 data255,169,0,32,189,255,32,192,255,162,15,76,1632
  32. 320 data201,255,173,115,193,32,210,255,173,116,193,32,1948
  33. 330 data210,255,169,1,76,210,255,169,13,32,210,255,1855
  34. 340 data76,204,255,77,45,87,0,77,45,82,0,147,1095
  35. 350 data18,32,67,45,54,52,32,32,67,72,69,67,607
  36. 360 data75,83,32,66,79,84,72,32,49,53,52,49,726
  37. 370 data32,65,78,68,32,49,53,55,49,32,68,82,663
  38. 380 data73,86,69,83,32,13,13,13,0,13,13,68,476
  39. 390 data82,73,86,69,32,66,85,70,70,69,82,32,816
  40. 400 data0,32,42,32,76,79,67,65,84,73,79,78,707
  41. 410 data32,0,32,42,32,79,75,46,46,46,0,32,462
  42. 420 data42,32,69,82,82,79,82,46,46,46,0,0,606
  43.